home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / SCROLL DOWN LOADER.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  436 b   |  14 lines
  1. 10  REM  SCROLL DOWN LOADER
  2. 20  INPUT "ENTER BASE ADDRESS: ";B
  3. 30 I = 0
  4. 40  READ J: IF J <0  THEN 60
  5. 50  POKE B +I,J:I = I +1: GOTO 40
  6. 60  PRINT "SCROLL.DOWN LOADED AT "B
  7. 70  PRINT "LENGTH: "I" BYTES. NEXT ADDR: "B +I
  8. 80  END 
  9. 90  DATA  165,35,56,233,1,72,32,36,252
  10. 100  DATA  165,40,133,42,165,41,133,43
  11. 110  DATA  164,33,136,104,56,233,1,197,34,48,13
  12. 120  DATA  72,32,36,252,177,40,145,42,136,16,249,48,224
  13. 130  DATA  96
  14. 140  DATA  -1